home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / DTRDI.z / DTRDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. DDDDTTTTRRRRDDDDIIII((((3333FFFF))))                                                            DDDDTTTTRRRRDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DTRDI   - DTRDI computes the determinant and inverse of a double
  10.      precision triangular matrix.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE DTRDI(T,LDT,N,DET,JOB,INFO)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      TTTT DOUBLE PRECISION(LDT,N)
  20.         T contains the triangular matrix.  The zero
  21.         elements of the matrix are not referenced, and
  22.         the corresponding elements of the array can be
  23.         used to store other information.
  24.  
  25.      LLLLDDDDTTTT INTEGER
  26.         LDT is the leading dimension of the array T.
  27.  
  28.      NNNN INTEGER
  29.         N is the order of the system.
  30.  
  31.      JJJJOOOOBBBB INTEGER
  32.         = 010       no det, inverse of lower triangular.
  33.         = 011       no det, inverse of upper triangular.
  34.         = 100       det, no inverse.
  35.         = 110       det, inverse of lower triangular.
  36.         = 111       det, inverse of upper triangular.  On Return
  37.  
  38.      TTTT inverse of original matrix if requested.
  39.         Otherwise unchanged.
  40.  
  41.      DDDDEEEETTTT DOUBLE PRECISION(2)
  42.         determinant of original matrix if requested.
  43.         Otherwise not referenced.
  44.         DETERMINANT = DET(1) * 10.0**DET(2)
  45.         with  1.0 .LE. DABS(DET(1)) .LT. 10.0
  46.         or  DET(1) .EQ. 0.0 .
  47.  
  48.      IIIINNNNFFFFOOOO INTEGER
  49.         INFO contains zero if the system is nonsingular
  50.         and the inverse is requested.
  51.         Otherwise INFO contains the index of
  52.         a zero diagonal element of T.  LINPACK.  This version dated 08/14/78 .
  53.      Cleve Moler, University of New Mexico, Argonne National Lab.  Subroutines
  54.      and Functions BLAS DAXPY,DSCAL Fortran DABS,MOD
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.